10 POKE650,128:GOTO 10000
130 PRINT"[147]     [210]/[215] [203][207][208][198][160][202][213][211][212][193][199][197]  [214][195] 1541"
150 DN=08:T=17
160 CLOSE1
170 PRINT" [204]EGEN [211]IE DIE [193]LIGNMENT[146]-[196]ISKETTE EIN!"
180 PRINT"[196]RUECKEN [211]IE DIE [212]ASTE [211][208][193][195][197][146] !"
190 GETH$:IFH$<>" "THEN190
200 PRINT"[147]"
210 OPEN1,DN,15
220 I$="I":PRINT#1,I$
230 PRINT"[147]"
240 PRINT"":PRINTTAB(12)"   * [194][197][198][197][200][204][197] *"
250 PRINTTAB(12)"I[146] = EINE [211]PUR INNEN"
260 PRINTTAB(12)"A[146] = EINE [211]PUR AUSSEN"
270 PRINTTAB(12)"B[146] = [194]UMP [211]OUND"
280 PRINTTAB(12)"H[146] = [200]YSTERESE"
290 PRINTTAB(12)"E[146] = [197]NDANSCHLAG"
300 PRINTTAB(12)"T[146] = [210]/[215] [212]EST"
305 PRINTTAB(12)"_[146] = [205]ENUE"
310 PRINTTAB(12)"[211]PUR NR:   [157][157][157]";T
320 JB=176:GETB$:IFB$=""THEN:GOSUB400:GOTO240
330 IFB$="I"THEN:T=T+1:GOSUB400:GOTO240
335 IFB$="_"THENCLOSE1:CLOSE7:CLOSE15:GOTO10000
340 IFB$="A"THEN:T=T-1:GOSUB400:GOTO240
350 IFB$="B"THENJB=192:T=17:GOSUB400:GOTO240
360 IFB$="H"THENJB=176:GOTO470
370 IFB$="E"THENT=1:GOTO500
380 IFB$="T"THENGOSUB630:GOTO950
390 IFB$<>"T"THENGOTO240
400 IFT<1THENPRINTTAB(02)"MIN. 1":FORX=1TO500:NEXT:PRINT"[147]":T=1
410 IFT>35THENPRINTTAB(02)"MAX. 35":FORX=1TO500:NEXT:PRINT"[147]":T=35
420 PRINT#1,"M-W"CHR$(6)CHR$(0)CHR$(1)CHR$(T)
430 PRINT#1,"M-W"CHR$(0)CHR$(0)CHR$(1)CHR$(JB)
440 PRINT#1,"M-R"CHR$(0)CHR$(0)
450 GET#1,X$:Y$=X$+CHR$(0):IFASC(Y$)>127THEN440
460 RETURN
470 HY=HY+1
480 IFHYAND1THENT=T+4:GOSUB400:T=T-4:GOTO240
490 T=T-4:GOSUB400:T=T+4:GOTO240
500 PRINT"[147]"SPC(9)"[202][213][211][212][193][199][197] [196][197][210] [211][208][213][210] 1"
510 PRINT"[197]INSTELLUNG AUF 0.25MM VOM [197]NDANSCHLAG                  ENTFERNT."
520 PRINTTAB( 4)"[215]ENN GESCHEHEN, BITTE DIE [212]ASTE"SPC(18)"[211][208][193][195][197][146] DRUECKEN !"
530 GOSUB400
540 GETC$:IFC$<>" "THENGOTO530
550 JB=192:T=17:GOSUB400
560 JB=176
570 PRINT"[147] SIND CAT EYE'S OK ?"
580 PRINT" DRUECKE J/N[146]"
590 GETA$:IFA$=""THENGOSUB400:GOTO590
600 IFA$="J"THENGOTO630
610 IFA$="N"THENGOTO230
620 IFA$<>"J"THENGOTO590
630 AF=0:CLOSE7:CLOSE15:OPEN15,DN,15
640 PRINT"[147]":PRINTTAB(6)"[210]/[215] [212][197][211][212]"
650 PRINT"[204]EGEN [211]IE EINE FORMATIERTE [196]ISKETTE EIN."
660 PRINTTAB(4)"[196]RUECKE [211][208][193][195][197][146]"
670 GETD$:IFD$<>" "THEN670
680 N$="N"+STR$(0)+":":FD$="TEST":AF=0
690 PRINT"[196]ISKETTE FORMATIEREN"
700 AG=0:PRINT#15,N$,FD$:GOSUB860:IFAGTHENAF=1
710 PRINT"[196]ISKETTE FORMATIEREN  ";:IFAFTHENPRINT"";
720 PRINTB$:IFAFTHEN890
730 FORI=1TO1000:NEXT
740 OPEN7,DN,7,"#"
750 PRINT" LESE/SCHREIB [212]EST":FORTR=1TO35STEP2
760 AG=0
770 PRINT#15,"U2";7;0;TR;1
780 GOSUB860:IFAG=0THEN810
790 IFAG<3THEN770
800 AF=1
810 PRINT"LESE/SCHREIB [212]EST     "TR;:IFAGTHENPRINT"";
820 PRINTB$" "A$
830 NEXT
840 CLOSE7
850 GOTO950
860 INPUT#15,A$,B$,C$,D$
870 IFA$<>"00"THENAG=AG+1
880 RETURN
890 PRINT"DRUECKE SPACE[146] FUER  WEITER"
900 PRINT" W[146] FUER [215]IEDERHOLUNG"
910 GETK$:IFK$=" "THENGOTO740
920 IFK$<>"W"THENGOTO910
930 GOTO630
940 RETURN
950 PRINT"[147]"TAB(4)"[212]EST  BEENDET"
960 PRINT"    DRUECKE SPACE[146]       FUER WIEDERHOLUNG"
970 PRINT"  ODER E[146]  FUER [197]NDE "
980 GETA$:IFA$=" "THENGOTO220
990 IFA$<>"E"THENGOTO980
1000 GOTO10000
2000 RESTORE:PRINT"[147][211]PUR - [211]EKTOR"
2010 DIMX$(300):TI$="000000"
2020 OPEN15,8,15
2030 OPEN2,8,2,"#"
2040 READT1,T2,S1:IFT1=-1THENPRINT""TI$:CLOSE2:CLOSE15:END
2050 FORT=T1TOT2
2060 FORS=0TOS1:PRINTCHR$(13)"  "T"[146]    "S
2065 GETA$:IFA$="_"THENCLOSE2:CLOSE15:GOTO10000
2070 PRINT#15,"U1:"2;0;T;S
2080 FORY=0TO255
2090 GET#2,X$(Y)
2100 IFX$(Y)<"A"ORX$(Y)>"Z"THEN2120
2110 PRINTX$(Y);
2120 NEXTY,S,T:GOTO2040
3000 PRINT"[147][211]CHRITTWEITEN-[212]EST:"
3030 OPEN15,8,15
3040 OPEN2,8,2,"#"
3050 PRINT"LESEN [211]PUR:     1[146]"
3060 FORA=0TO20
3070 PRINT#15,"U1:"2;0;1;A
3080 NEXTA
3085 GETX$:IFX$="_"THENCLOSE2:CLOSE15:GOTO10000
3090 PRINT"LESEN [211]PUR:    35[146]"
3100 FORA=0TO17
3110 PRINT#15,"U1:"2;0;35;A
3120 NEXTA
3125 GETX$:IFX$="_"THENCLOSE2:CLOSE15:GOTO10000
3130 FORA=2TO34
3140 PRINT#15,"U1:"2;0;A;0
3150 PRINT"LESEN [211]PUR:   "A"[146]"
3160 NEXT
3165 GETX$:IFX$="_"THENCLOSE2:CLOSE15:GOTO10000
3170 PRINT"LESEN [211]PUR:    18[146]"
3180 FORA=0TO17
3190 PRINT#15,"U1:"2;0;18;A
3200 NEXTA
3210 CLOSE2:CLOSE15
3260 OPEN1,8,15:INPUT#1,A,B$
3265 IFA=0THEN3300
3270 PRINT"[198]EHLER:[146]";B$
3280 PRINT"[198]EHLERNUMMER :[146]";A
3300 CLOSE1:GOTO10000
5000 PRINT"[147] [204]ESEKOPF-[202]USTAGE [146]"
5020 PRINT"[198]LOPPY-[211]TATUS WAEHREND DER [213]EBUNG:"
5030 PRINT"[204]ESEZEIT (MUSS < 9 SEIN):"
5040 GOSUB5140
5050 A1$="":A2$="        [157][157][157][157][157][157][157][157]"
5060 A1$=A1$+"                    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
5070 OPEN5,8,15:OPEN4,8,3,"#":OPEN1,8,15
5080 TI$="000000":PRINT#5,"B-R";3;0;1;1:PRINT#5,"B-P"3;1:GET#4,A$
5090 REM
5100 PRINT#5,"B-R";3;0;35;2:PRINT#5,"B-P"3;1:GET#4,A$
5110 INPUT#1,X1,X2$,X3,X4:PRINTA1$;X1;X2$;X3;X4:ZW=TI
5120 PRINTA2$;ZW:IFZW<9THENFORW=1TO1000:NEXTW:GOTO5190
5125 GETX$:IFX$="_"THENCLOSE4:CLOSE5:CLOSE1:GOTO10000
5130 GOTO5080
5140 PRINT"[196]IESES [208]ROGRAMM TRAINIERT  DAS  [208]OSITIO-";
5150 PRINT"REN DES [212]ONKOPFES SEITENS DES [196]ISKETTEN-";
5160 PRINT"LAUFWERKES.  [215]ENN EINE AUSREICHENDE [218]EIT";
5170 PRINT"ERREICHT IST,  GEHT ES MIT DER NAECHSTEN";
5180 PRINT"[213]EBUNG WEITER.":RETURN
5190 CLOSE4:CLOSE5:CLOSE1
5200 OPEN1,8,15
5210 PRINTA2$;"[145][206]UN WIRD INITIALISIERT!                "
5220 FORW=1TO10:PRINT#1,"I":INPUT#1,X1,X2$,X3,X4:PRINTA1$;X1;X2$;X3;X4:NEXTW
5230 CLOSE1
5240 PRINT"[147]   [196]AS [196]ISKETTENLAUFWERK UND DIE [196]ISK  "
5250 PRINT"   HABEN DIE [213]EBUNG BESTANDEN !        "
5260 PRINT"[196]URCH DIESE [208]ROZEDUR..."
5270 PRINT"...HAT SICH DER [212]ONKOPF OPTIMAL[146] POSITIO-";
5280 PRINT"   NIERT
5290 [153]"...HABEN (null)IE SOMIT (null)EPARATURGELD UND (null)E-";
5300 [153]"   PARATURWARTEZEIT GESPART"
5310 [153]"...HAT DER (null)CHRITTMOTOR WIEDER EIN  BIS-";
5320 [153]"   CHEN (null)EBUNG BEKOMMEN UND  (null)IE  SPAREN";
5330 [153]"   (null)OSITIONIERUNGSZEIT"
5350 [153]"(null)URUECK INS (null)ENUE BEI (null)ASTENDRUCK!":[151]198,0:[146]198,1:[137]10000
9900 [131]1,17,20,18,24,18,25,30,17,31,35,16,-1,0,0
10000 [151]53280,6:[151]53281,6:[153][199](14)[199](8)"LOADSYSSTR$ISKETTENKONTROLLPROGRAMM"
10010 [153]"(null)IE KOENNEN WAEHLEN:":B$[178]"       "
10020 [153]B$"AWAIT = (null)OPFJUSTAGE AUTOMATISCH"
10030 [153]B$"MWAIT = (null)OPFJUSTAGE MANUELL"
10040 [153]B$"BWAIT = PEEKLOECKE EINZELN LESEN"
10045 [153]B$"SWAIT = (null)CHRITTWEITEN - (null)EST"
10047 [153]B$"EWAIT = (null)ROGRAMMENDE"
10050 [153]"RIGHT$HRE VALINGABE ?  ";
10060 [151]198,0:[146]198,1:[161]A$:[153]A$"CMD";:[139]A$[178]"A"[167]5000
10070 [139]A$[178]"M"[167]130
10080 [139]A$[178]"B"[167]2000
10090 [139]A$[178]"E"[167][153]"LOAD":[128]
10095 [139]A$[178]"S"[167]3000
10100 [137] 10060